  10 :return ;clear ;NT=0;BC=rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
  17 print "   FRAME           SCORE";A=1;B=0;C=0;&(19)=25
  20 box 0,0,43,87,3;box 0,0,41,85,3;for Z=0to 22;@(Z)=0;next Z
  40 box 0,-35,41,15,3;box -13,-15,1,2,3;box -6,-12,1,2,3;box 0,-9,1,2,3;box 6,-12,1,2,3;box 13,-15,1,2,3
  50 for Z=23to 32;@(Z)=1;next Z;CX=-47;CY=30;print #1,A;CX=48;CY=30;print #1,B;E=0;gosub 890
  60 if A=11if @(18)+@(19)#10goto 1500
  65 if A=12if @(20)#10goto 1500
  70 if A=13goto 1500
  80 E=E+1;gosub 1000;if X=0@(23)=2;@(24)=2;@(25)=2;@(27)=2;@(30)=2;@(31)=2
  90 if (X=-3)+(X=3)if @(23)=1for Z=23to 32;@(Z)=2;next Z;if rnd (4)=1if E=1@(32)=1
  95 if X=-6if @(24)=1@(24)=2;@(26)=2;@(27)=2;for Z=29to 32;@(Z)=2;next Z
 100 if X=6if @(25)=1@(25)=2;for Z=27to 32;@(Z)=2;next Z
 105 if X=-9if @(26)=1@(26)=2;@(29)=2;@(30)=2
 110 if X=9if @(28)=1@(28)=2;@(31)=2;@(32)=2
 120 if X=-12if @(26)=1@(26)=2;for Z=29to 32;@(Z)=2;next Z
 130 if X=12if @(28)=1for Z=28to 32;@(Z)=2;next Z
 140 if X=15@(32)=2
 150 if X=-15@(29)=2
 160 gosub 890;&(23)=0;&(21)=0;if E=2goto 200
 170 for Z=23to 32;if @(Z)=2@(C)=@(C)+1
 180 next Z;C=C+1;if @(C-1)=10goto 2000
 190 if @(18)#10if @(18)+@(19)=10A=13;goto 50
 192 if @(18)=10if @(20)=10A=13;goto 50
 195 goto 80
 200 @(C)=10-@(C-1);for Z=23to 32;@(C)=@(C)+@(Z)-2;next Z;goto 2000
 890 for Z=23to 32;gosub 877+Z;next Z;return 
 900 box 0,21,3,3,@(Z);return 
 901 box -5,27,3,3,@(Z);return 
 902 box 5,27,3,3,@(Z);return 
 903 box -10,33,3,3,@(Z);return 
 904 box 0,33,3,3,@(Z);return 
 905 box 10,33,3,3,@(Z);return 
 906 box -15,39,3,3,@(Z);return 
 907 box -5,39,3,3,@(Z);return 
 908 box 5,39,3,3,@(Z);return 
 909 box 15,39,3,3,@(Z);return 
1000 for X=-15to 15step 3;box X,-39,3,3,3;if TR(1)goto 1050
1010 box X,-39,3,3,3;next X;for X=15to -15step -3;box X,-39,3,3,3;if TR(1)goto 1050
1020 box X,-39,3,3,3;next X;goto 1000
1050 box X,-39,3,3,3;&(23)=255;&(21)=25;for Y=-39to 45step 4;box X,Y,3,3,3;box X,Y,3,3,3;next Y;return 
1500 CY=0;CX=-30;print "GAME   OVER
1505 if B>T T=B
1506 CX=-60;print "TODAY'S HIGH SCORE
1507 CX=-5;print #1,T
1510 if TR(1)goto 10
1520 goto 1510
2000 B=0;CY=15;for Z=0to 18step 2;if Z=10CY=15
2001 if Z>9CX=70
2005 if @(Z)=10print "mul ";if @(Z+2)=10B=B+20+@(Z+4);goto 2060
2010 if @(Z)=10if @(Z+2)#10B=B+10+@(Z+2)+@(Z+3);goto 2060
2020 if @(Z)+@(Z+1)=10B=B+10+@(Z+2);print "/";goto 2060
2030 B=B+@(Z)+@(Z+1);if Amul 2>Zprint "-
2060 next Z;A=A+1;C=C+1;goto 50
run 